Group=Dot Edit
Name=_Rs[Z
Init=coord=-1;\nvScale=1;\ncx=cy=0;\n?a1,Rs[,0,50,10;\n?a2,Rs[,0,50,10;\n?a3,x,1,50,10;\n?a6,ŏTCY ,0,100,100;\n?a7,Fψ,0,127,0;\na3=a3*xs*ys/30000;\nc1=c2=c3=c4=c5=0;\n_Fill(255,255,255);\n_FillT(255);\n
Prog=a4=a1;\na5=a2;\nwhile(c3<a3){\nb1=int(rand(0,xs)-rand(0,xs));\nb2=int(rand(0,ys)-rand(0,ys));\nb3=int(rand(a6,100));\nb6=int(rand(-a7,a7));\na4=a1*b3/100;\na5=a2*b3/100;\n  while(c4<a4){\n    while(c5<a5){\nR=G=B=0;\nadd(c1,c2,1);\nHLS(R,G,B);\nH=(H+b6)-int((H+b6)/255)*255;\nRGB(H,L,S);\nR1=R;\nG1=G;\nB1=B;\nR=G=B=0;\n_add(b1+c4,b2+c5,1/255);\nR=R*R1;\nG=G*G1;\nB=B*B1;\nR1=G1=B1=0;\n_Pset(b1+c4,b2+c5);\n    c2=c2+100/b3;\n    c5=c5+1;\n    }\n  c1=c1+100/b3;\n  c5=c2=0;\n  c4=c4+1;\n  }\nc4=c1=0;\nc3=c3+1;\n}\nexit(-1);
